home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / math / nrpas13 / scrsho.dem < prev    next >
Text File  |  1991-04-29  |  217b  |  17 lines
  1. PROGRAM d9r1(input,output);
  2. (* driver for routine SCRSHO *)
  3.  
  4. (*$I MODFILE.PAS *)
  5. (*$I BESSJ0.PAS *)
  6.  
  7. FUNCTION fx(x: real): real;
  8. BEGIN
  9.    fx := bessj0(x)
  10. END;
  11.  
  12. (*$I SCRSHO.PAS *)
  13.  
  14. BEGIN
  15.    scrsho
  16. END.
  17.